home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / EZY120_1.ZIP / STRUCT.ARJ / PASLIB.ARJ / ECIMPORT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-09  |  1.5 KB  |  48 lines
  1. {$F+,R-,S-}
  2. unit ecimport;
  3.  
  4. interface
  5.  
  6. uses ezyconst;
  7.  
  8.  
  9.  
  10. function EditUser(var User;var UserExt;UserNum, NumUsers : Longint;EzyEdMode : Boolean;
  11.                   var LastField1, LastField2 : Word;
  12.                   var Page : Byte;
  13.                       SecurityLevel : Word) : Word;
  14.  
  15. function PickUser(var hUser : File;var UserNum : word;EzyEdMode : boolean;Search : String) : word;
  16.  
  17.  
  18. implementation
  19.  
  20. function EditUser(var User;var UserExt;UserNum, NumUsers : Longint;EzyEdMode : Boolean;
  21.                   var LastField1, LastField2 : Word;
  22.                   var Page : Byte;
  23.                       SecurityLevel : Word) : Word;
  24.                   external 'ECEZYED' index 1;
  25. (* Edit a User
  26.  
  27.    User          Address of Users Record
  28.    UserExt       Address of Users Extra Record
  29.    UserNum       Number of the User being Edited
  30.    Numusers      Total Number of Users
  31.    EzyEdMode     Whether EzyEd is calling this (normally FALSE)
  32.    LastField1    Last Field Position for Page 1 (initialize to 0)
  33.    LastField2    Last Field Position for Page 2 (initialize to 0)
  34.    SecurityLevel Security Level of User Editing the Record (Set 0 for unlimited access)
  35.  
  36.    Return Results
  37.  
  38.    EzyEdOk       User Editing OK and should be saved
  39.    EzyEdAbort    User Editing Aborted, and should NOT be saved
  40.    EzyEdError    Error during Editing
  41.  
  42.    *)
  43.  
  44. function PickUser(var hUser : File;var UserNum : word;EzyEdMode : boolean;Search : String) : word;
  45.                   external 'ECEZYED' index 2;
  46.  
  47. end.
  48.